home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / star trek v1.d (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  28KB  |  776 lines
  1. 0 REM(null)
  2. 1 SYS5097:PRINT"[147]        BY: [158]DAVE NEALE  P.O. BOX 1324
  3. 2 [153]"            MEAFORD, ONTARIO  N0H-1Y0
  4. 3 PRINT"[150]ATTENTION:[153] WITH ENOUGH RESPONSE A MORE
  5. 4 [153]"DETAILED VERSION COULD BE IN THE WORKS
  6. 5 PRINT"THAT WILL INCLUDE THE FOLLOWING:"
  7. 6 PRINT"[153]1. [158]SKILL LEVELS   [153]2. [158]A CLASSIC ENDING
  8. 7 [153]"PRINT3. SYSKLINGONS FIRE FIRST IF YOU'RE SLOW
  9. 8 PRINT"[153]4. [158]PRISONER TAKEN FOR INTERROGATION
  10. 9 [153]"PRINT5. SYSKLINGONS SMOKING IF DAMAGED
  11. 10 PRINT"[153]6. [158]OTHER CRAFT TYPES, DIPLOMATIC,SPY.
  12. 11 [153]"PRINT7. SYSCONDITION RESET AFTER A KILL
  13. 12 PRINT"[153]8. [158]SMOOTH SCREEN SCROLLING
  14. 13 [153]"PRINT9. SYSBETTER GRAPHICS, MORE MACHINE CODE
  15. 14 PRINT"[153]10. [158]HIGH RES SCREEN [153]11.[158] TACTICAL SENSER
  16. 15 [153]"PRINT12. SYSNO JUNK LIKE THIS AT THE START
  17. 20 PRINT"[153]SO IF YOU LIKE THIS PROGRAM AND WISH TO
  18. 21 [153]"SEE AN IMPROVED VERSION, THEN SHOW ME
  19. 22 PRINT"YOUR INTEREST BY SENDING [158]$4.00 [153]TO THE
  20. 23 [153]"ABOVE ADDRESS. I'M ALSO INTERESTED IN
  21. 24 PRINT"ANY COMMENTS OR IDEAS YOU HAVE THAT
  22. 25 [153]"COULD BE INCLUDED IN FUTHER VERSIONS.
  23. 38 FORX=1TO38000:NEXT
  24. 40 X=RND(1-TI):SYS52870
  25. 41 REM*****************************
  26. 42 REM*       - STAR TREK -       *
  27. 43 REM*                           *
  28. 44 REM**  ADAPTED BY DAVE NEALE  **
  29. 45 REM***                       ***
  30. 46 REM**  INSPIRED BY G.SOLOMON  **
  31. 47 REM*                           *
  32. 48 REM*   A D.G. PRODUCTION INC   *
  33. 49 REM*****************************
  34. 60 PRINT"[147]":SYS49801:Q$="":O$=""
  35. 100 A$="SPACE, THE FINAL FRONTIER":Y=13:X=1
  36. 120 B$=MID$(A$,Y,X):Y=Y-1:X=X+2
  37. 130 PRINT"[146]"Q$Q$TAB(Y+7)B$:IFY=0THEN220
  38. 140 FORI=1TO100:NEXT:GOTO120
  39. 220 GOSUB15000:F=0:R9=0:KM=0:GOTO231
  40. 230 FORTE=1TO4:DI=INT(RND(1)*39):CH=INT(RND(1)*5)+118:PRINTTAB(DI)"";CHR$(CH);"[146][145]":NEXT:RETURN
  41. 231 PRINTQ$Q$TAB(19)"[164][164]":GOSUB230
  42. 232 PRINTO$"[213][177][195][195][177][201]":GOSUB230
  43. 233 PRINTO$"[164][164][164][164][164][210][210][198][198][195][203][195][177][177][195][202][195][198][198][210][210][164][164][164][164][164]":GOSUB230
  44. 234 PRINTO$"[205] [187][187][187].[163][163][163][163][163][163][163][163][163][163][163][163][163][163].[172][172][172] [206]":GOSUB230
  45. 235 PRINTO$"[205][164][164][164][164][164][183][183][164][164][164][164][164][164][164][164][183][183][164][164][164][164][164][206]":GOSUB230
  46. 236 PRINTO$"[221][221][221][163][197][196][195][198][175][175][198][195][196][197][163][221][221][194]":GOSUB230
  47. 237 PRINTO$"[202][177][203][167][164][164][165][202][177][203]":GOSUB230
  48. 239 PRINTO$"[205][205][207][166][166][208][206][206]":GOSUB230
  49. 240 PRINTO$"[205][205][208][163][163][207][206][206]":GOSUB230
  50. 241 PRINTO$"[205][205][164][206][163][163][163][163][205][164][206][206]":GOSUB230
  51. 242 PRINTO$"[205][206][206][163][163][163][163][205][205][206]":GOSUB230
  52. 243 PRINTO$"[213][165][165] [213][201] [167][167][201]":GOSUB230
  53. 244 PRINTO$"[202][165][165] [202][203] [167][167][203]":GOSUB230
  54. 245 PRINTO$"[205][205][164][164][164][164][206][206]":GOSUB230
  55. 246 PRINTO$"[205][164][164][164][164][206]":GOSUB230:PRINTTAB(19)"[202][203]
  56. 250 [129]J[178]1[164]6:[153]:[141]230:[130]J:[129]I[178]1[164]1800:[130]
  57. 255 [153][163]8)"ONONONONPHASERS LOCKED ON TARGET":[129]I[178]1[164]500:[130]
  58. 258 [153][163]17)"FIRE!!...":[129]I[178]1[164]30:[130]
  59. 259 [151]55595,2:[151]55596,2:[151]1323,81:[151]1324,81:[129]I[178]1[164]100:[130]:[141]10000
  60. 260 [158]5451:[129]C[178]0[164]48:[151]53280,C:[151]53281,C:[130]:[139]R9[178]1[167][142]
  61. 280 [153]"LOAD":[158]49814:[153]"WAIT"Q$"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"[166]12)"(null)LENLENRIGHT$
  62. 283 PRINT"[205][175][175][175] [168][168][168][168][168][168][168][168][168] [167][164][175][175][164][164][210][198][195][203][163][163][163][163][202][195][198][210][164][164][164]
  63. 284 [153]"(null)TOTOTOTOTOTOTOTOTOTOTOTOTO(null)THENVAL(null)TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null)
  64. 285 PRINT"[205][164][164][164][164][164][205][160][205][164][164][164][164][206][206]  .[206][197][196][195][198][195][196][197]
  65. 286 [153]"(null)NOT(null)(null)(null)...(null)
  66. 287 PRINT"[205][220][205][205][206].. [172][165]
  67. 288 [153]"ANDASCLEN(null) (null)VALUSRUSRUSRUSRUSRVALSTR$LENASC(null)
  68. 289 PRINT"[206][165]   ... [168]    ...[182]#
  69. 290 [153]"USRLEN(null)TO...    ****  ABS$
  70. 291 PRINT"[163][196][198][175][175][175][175][175][175][175][210][198][195][196][183]
  71. 292 [153][163]14)"NCC-1701":[153][163]9)"THE USS ENTERPRISE":[141]40500
  72. 400 VI[178]53248:[151]VI[170]27,127:[151]VI[170]21,0:[151]VI[170]40,7:[151]VI[170]41,2:[151]VI[170]42,1:V[178]54272
  73. 410 Q$[178]"":Z$[178]"               ":[134]C(9,2),K(3,3),D(9):V[178]54272:[151]V[170]24,31
  74. 430 T[178][181]([187](1)[172]20[170]20)[172]100:T0[178]T:T9[178]23[170][181]([187](1)[172]10):D2[178]0:E[178]3000:[151]248,18
  75. 440 P[178]12:S9[178]260:S[178]0:B9[178]0:K9[178]0:X9[178]0:X$[178]"":X0$[178]" IS ":[151]249,0:[151]180,30:[151]181,0
  76. 460 [150][165]L(L)[178](Q1[172]9[170]Q2)[172]3[170]50450:[150][165]R(R)[178][181]([187](R)[172]7.9[170]1.1)
  77. 470 [150][165]D(D)[178][186]((K(I,1)[171]S1)[174]2[170](K(I,2)[171]S2)[174]2):[150][165]B(B)[178][181]([187](B)[172]8.9)
  78. 490 Q1[178][165]B(1):Q2[178][165]B(1):S1[178][165]R(1):S2[178][165]R(1)
  79. 530 [129]I[178]1[164]9:C(I,1)[178]0:C(I,2)[178]0:[130]I:C(1,2)[178]1:C(2,2)[178]1:C(8,2)[178]1:C(9,2)[178]1
  80. 540 [129]M[178]0[164]2:C(2[170]M,1)[178][171]1:C(4[170]M,2)[178][171]1:C(6[170]M,1)[178]1:[130]
  81. 670 [129]I[178]1[164]9:D(I)[178]0:[130]I:A2$[178]"123456789"
  82. 820 [158]49786:[158]50946:K9[178][194](167):B9[178][194](169):[139]K9[177]T9[167]T9[178]K9[170]1
  83. 1100 [139]B9[179][177]0[167]1200
  84. 1150 L0[178][165]L(0):[139][194](L0)[179]2[167][151]L0,[194](L0)[170]1:K9[178]K9[170]1
  85. 1160 B9[178]1:[151]L0[170]1,1:Q1[178][165]B(1):Q2[178][165]B(1)
  86. 1200 K7[178]K9:[139]B9[179][177]1[167]X$[178]"S":X0$[178]" ARECLOSE"
  87. 1205 L[178][181]([187](1)[172]81)[172]3:[139][194](50451[170]L)[177]0[176][194](50450[170]L)[179][177]0[167]1205
  88. 1210 [151]50452[170]L,0
  89. 1220 [153]"LOADSYS   PRIORITY MESSAGE TO USS ENTERPRISE:":[153][163]16)"CODE II"
  90. 1225 [153]"DEF"K9"KLINGON WARSHIPSLIST HAVE INVADED THE"
  91. 1227 [153]"FEDERATION TERRITORY YOU ARE PATROLLING."
  92. 1230 [153][163]12)"SYSYOUR ORDERS ARE:LIST"
  93. 1245 [153]"DESTROY ALL ENEMY SHIPS BEFORE THEY"
  94. 1250 [153]"ATTACK FEDERATION HEADQUARTERS ON"
  95. 1260 [153]"STARDATE"T0[170]T9"CMD. THIS GIVES YOUSYS"T9"DAYSLIST."
  96. 1265 [153]"THERE"X0$"PRINTCMD"B9"STARBASE"X$"LIST IN THE GALAXY FOR"
  97. 1270 [153]"REPAIRING AND RESUPPLYING YOUR SHIP."
  98. 1280 [153][163]9)"HIT ANY KEY WHEN READY"
  99. 1300 [161]B$:[139]B$[178]""[167]1300
  100. 1320 NQ[178]1:Z4[178]Q1:Z5[178]Q2:K3[178]0:B3[178]0:S3[178]0:G5[178]0:D4[178].5[172][187](1):[141]10500
  101. 1330 [151]49345,Q1:[151]49346,Q2:[151]49328,[165]L(0)[171]50450:[158]50696
  102. 1430 [141]9030:[139]T0[179][177]T[167]1490
  103. 1460 [153]"YOUR MISSION BEGINS WITH YOUR STARSHIP"
  104. 1465 [153][163]4)"LOCATED IN THE GALAXY QUADRANTSYS"
  105. 1470 [153][163]20[171].5[172][195](G2$));G2$:[137]1500
  106. 1490 [153]"NOW ENTERING "G2$" QUADRANT..."
  107. 1500 L0[178][165]L(0):K3[178][194](L0):B3[178][194](L0[170]1):S3[178][194](L0[170]2):NB[178]0:[139]S3[177]0[167]1550
  108. 1510 NB[178]1:E[178]E[170]S:S[178]0:[141]7920
  109. 1515 [153]"SYSWARNING: YOU ARE ENTERING A NEBULA
  110. 1517 PRINT"SYSTEM. MOST DEVICES WILL NOT FUNCTION":FORL=0TO3500:NEXT
  111. 1550 IFK3=0ORNB=1THEN1590
  112. 1560 PRINTTAB(14)"[150]COMBAT AREA":PRINTTAB(7)"ALL HANDS BATTLE STATIONS"
  113. 1570 SYS5536:IFS>200THEN1590
  114. 1580 PRINTTAB(8)"[158]SHIELDS DANGEROUSLY LOW":SYS5536
  115. 1590 FORI=1TO3:K(I,1)=0:K(I,2)=0:K(I,3)=0:NEXT
  116. 1680 A$="[193][211][216]":Z1=S1:Z2=S2:L5=0:GOSUB8670:IFK3<1THEN1790
  117. 1720 FORI=1TOK3:GOSUB8590:A$="[218][]":Z1=R1:Z2=R2
  118. 1780 GOSUB8670:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5+RND(1)):NEXTI
  119. 1790 IFNB=0THENFORSN=1TOINT(RND(1)*5):GOSUB8590:A$="[215][169][215]":Z1=R1:Z2=R2:GOSUB8670:NEXT
  120. 1820 IFB3<1THEN1910
  121. 1880 GOSUB8590:A$="#[214]\":Z1=R1:B4=R1:Z2=R2:B5=R2:GOSUB8670
  122. 1910 IFNB=0THENFORI=1TOS3:GOSUB8590:A$="%&_":Z1=R1:Z2=R2:GOSUB8670:NEXTI
  123. 1980 GOSUB6430:PR=0
  124. 1990 IFS+E>10ORD0=0THENIFE>10ORD(7)>=0THEN2060
  125. 1995 IFD0=1ANDE+S>10THEN2060
  126. 2020 PRINTTAB(11)"[150]*** FATAL ERROR ***[155]"
  127. 2023 PRINT"YOU'VE JUST STRANDED YOUR SHIP IN SPACE"
  128. 2025 PRINT"YOU'VE INSUFFICIENT MANEUVERING ENERGY"
  129. 2040 PRINT"SHIELD CONTROL IS PRESENTLY INCAPABLE"
  130. 2045 PRINT"OF CROSS CIRCUITING TO THE ENGINES!!":GOSUB6220
  131. 2060 POKE752,0:GOSUB9500:SYS5168:IFPEEK(53168)=1THEN2160
  132. 2140 B=PEEK(52961):ONBGOTO2300,1980,4000,4260,4700,5530,5690,7290,11000
  133. 2160 IFB=221THEN1990
  134. 2170 PRINT"[158]ENTER ONE OF THE FOLLOWING"
  135. 2180 PRINT"  1 = SET COURSE
  136. 2190 [153]"  2 = SHORT RANGE SCAN
  137. 2200 PRINT"  3 = LONG RANGE SCAN
  138. 2210 [153]"  4 = FIRE PHASERS
  139. 2220 PRINT"  5 = FIRE PHOTON TORPEDOES
  140. 2230 [153]"  6 = RAISE/LOWER SHIELDS
  141. 2240 PRINT"  7 = DAMAGE CONTROL REPORTS
  142. 2250 [153]"  8 = ENABLE LIBRARY COMPUTER
  143. 2260 PRINT"  9 = ENABLE TRACTOR BEAM":GOTO1990
  144. 2290 REM*****
  145. 2300 INPUT"  COURSE  [191][157][157][157]";C1$:C1=VAL(C1$):IFC1=0THEN1990
  146. 2310 IFC1>=1ANDC1<9THEN2350
  147. 2330 PRINT" LT. SULU REPORTS INCORRECT COURSE DATA":GOTO1990
  148. 2350 X$="8":IFD(1)<0THENX$="0.2"
  149. 2360 PRINTTAB(15)"[145]WARP FACTOR(0-";X$;")  [191][157][157][157]";
  150. 2370 INPUTW1$:W1=VAL(W1$):IFW1=0THEN1990
  151. 2375 IFD(1)<0ANDW1>.2THEN2470
  152. 2380 IFW1>0ANDW1<=8THEN2490
  153. 2390 IFW1=0THEN1990
  154. 2420 PRINT"[158]CHIEF ENGINEER SCOTT REPORTS THE WARP"
  155. 2430 PRINT"ENGINES NOT CAPABLE OF WARP";W1"!":GOTO1990
  156. 2470 PRINT"[158]WARP ENGINES DAMAGED. MAXIMUM SPEED ON"
  157. 2480 PRINT"IMPULSE ENGINES IS WARP O.2":GOTO1990
  158. 2490 N=INT(W1*8+.5):IFE-N>=0THEN2585
  159. 2500 PRINT"[158]ENGINEERING REPORTS: NOT ENOUGH ENERGY
  160. 2510 [153]"AVAILABLE FOR MANEUVERING AT WARP";W1;"!LIST"
  161. 2530 [139]S[179]N[171]E[176]D(7)[179]0[167]1990
  162. 2550 [153]"DEFLECTOR CONTROL REPORTSSYS";S;"LISTUNITS"
  163. 2555 [153]"OF ENERGY DEPLOYED TO SHIELDS.":[137]1990
  164. 2585 [141]6000:[137]3070
  165. 2590 [129]I[178]1[164]3:[139]K(I,3)[179]10[176]NB[178]1[167]2700
  166. 2600 A$[178]"":Z1[178]K(I,1):Z2[178]K(I,2):[141]8670:[141]7940
  167. 2607 Y0[178]K(I,1):X0[178]K(I,2):KM[178]1:[139]TB[178]1[167]2612
  168. 2610 WK[178][187](1)[172].3[170].1:N%[178]8[172]WK[170].5:G[178][187](1)[172]8.9
  169. 2612 [141]7900:[129]J[178]1[164]N%:K(I,1)[178]K(I,1)[170]F1:K(I,2)[178]K(I,2)[170]F2
  170. 2615 [139]K(I,1)[179]1[176]K(I,1)[177]8[176]K(I,2)[179]1[176]K(I,2)[177]8[167]2623
  171. 2620 S8[178][181](K(I,1))[172]24[170][181](K(I,2))[172]3[171]26[170]50001:[139][194](S8)[178]29[167]2630
  172. 2621 [139][194](S8)[178]169[167]FL[178]1:[137]2635
  173. 2623 K(I,1)[178][181](K(I,1)[171]F1):K(I,2)[178][181](K(I,2)[171]F2):Y1[178]K(I,1):X1[178]K(I,2)
  174. 2625 [141]15400:[137]2640
  175. 2630 [130]J
  176. 2635 K(I,1)[178][181](K(I,1)):K(I,2)[178][181](K(I,2)):Y1[178]K(I,1):X1[178]K(I,2):[141]15400
  177. 2640 A$[178]"(null)[]":Z1[178]K(I,1):Z2[178]K(I,2):[141]8670
  178. 2690 [139]TB[178]1[167][142]
  179. 2700 [130]I:KM[178]0
  180. 2760 D1[178]0:D6[178]W1:[139]W1[177][178]1[167]D6[178]1
  181. 2770 [129]I[178]1[164]9:[139]D(I)[177][178]0[167]2880
  182. 2790 D(I)[178]D(I)[170]D6:[139]D(I)[177][171].1[175]D(I)[179]0[167]D(I)[178][171].1:[137]2880
  183. 2800 [139]D(I)[179]0[167]2880
  184. 2810 [139]D1[179][177]1[167]D1[178]1:[153]"SYSDAMAGE CONTROL REPORTS:"
  185. 2840 R1[178]I:[141]8790:[153]G2$" REPAIR COMPLETED."
  186. 2880 [130]I:[139][187](1)[177].2[167]3050
  187. 2910 R1[178][165]B(1)[170]1:[139][187](1)[177].6[167]3000
  188. 2915 [139]S[178]0[167]DS[178][187](1)[172]5[170]1:[137]2930
  189. 2920 DS[178]([187](1)[172]6[170]1)[172](500[173]S):[139]DS[177]5.5[167]DS[178][187](1)[170]5
  190. 2930 D(R1)[178]D(R1)[171]DS:[153]"DEFDAMAGE CONTROL REPORTS:"
  191. 2960 [141]8790:[153]G2$" DAMAGEDLIST":[137]3040
  192. 3000 D(R1)[178]D(R1)[170][187](1)[172]3[170]1:[153]"PRINTDAMAGE CONTROL REPORTS:"
  193. 3030 [141]8790:[153]G2$" STATUS IMPROVEDLIST"
  194. 3040 [139]D(R1)[179][171]5[176]D(R1)[177]5[167]D(R1)[178][180](D(R1))[172]5
  195. 3050 [142]
  196. 3070 A$[178]"":Z1[178]S1:Z2[178]S2:[141]8670:[141]7940
  197. 3110 X0[178][181](S2):Y0[178][181](S1):G[178]C1:[141]7900:F3[178]F1:F4[178]F2:X[178]S1:Y[178]S2:Q4[178]Q1:Q5[178]Q2
  198. 3170 [129]I[178]1[164]N:S1[178]S1[170]F1:S2[178]S2[170]F2:[139]S1[179]1[176]S1[177]8[176]S2[179]1[176]S2[177]8[167][137]3500
  199. 3240 S8[178][181](S1)[172]24[170][181](S2)[172]3[171]26[170]50001:[139][194](S8)[178]29[167]3360
  200. 3250 [139][194](S8)[178]169[167]HM[178]1:X7[178][181](S2):Y7[178][181](S1):[137]3360
  201. 3320 S1[178][181](S1[171]F1):S2[178][181](S2[171]F2):Y1[178]S1:X1[178]S2:[141]3482:[158]5712
  202. 3330 [153][163]13)"DEFBAD NAVIGATION":[153][163]9)"SYSWARP ENGINES SHUT DOWN":[137]3370
  203. 3360 [130]I:S1[178][181](S1):S2[178][181](S2):Y1[178]S1:X1[178]S2:[141]3482
  204. 3366 [139]HM[178]1[167][141]16100
  205. 3370 S0[178]0:A$[178]"ATN(null)(null)":Z1[178][181](S1):Z2[178][181](S2):[141]8670:[141]3905:T8[178]1
  206. 3430 [139]W1[179]1[167]T8[178].1[172][181](10[172]W1)
  207. 3450 T[178]T[170]T8:[139]T[177]T0[170]T9[167]6220
  208. 3475 [139][194](1665)[178]64[176][194](1705)[178]64[167][141]2590:PR[178]1:[137]1980
  209. 3480 [141]2590:[129]TD[178]1[164]1000:[130]:[137]1980
  210. 3482 [139]HM[178]1[175]([194](1705)[179][177]64[175]PC[178]0)[167][158]5451:[142]
  211. 3483 [141]15400:[142]
  212. 3500 Y1[178][181](S1[171]F1):X1[178][181](S2[171]F2):SO[178]1:[141]3482:SO[178]0:SC[178]0:PC[178]0:[141]2760
  213. 3510 X[178]8[172]Q1[170]X[170]N[172]F3:Y[178]8[172]Q2[170]Y[170]N[172]F4:Q1[178][181](X[173]8):Q2[178][181](Y[173]8):S1[178][181](X[171]Q1[172]8)
  214. 3550 S2[178][181](Y[171]Q2[172]8):[139]S1[178]0[167]Q1[178]Q1[171]1:S1[178]8
  215. 3590 [139]S2[178]0[167]Q2[178]Q2[171]1:S2[178]8
  216. 3620 X5[178]0:[139]Q1[179]0[167]X5[178]1:Q1[178]0:S1[178]1:[137]3710
  217. 3670 [139]Q1[177]8[167]X5[178]1:Q1[178]8:S1[178]8
  218. 3710 [139]Q2[179]0[167]X5[178]1:Q2[178]0:S2[178]1:[137]3790
  219. 3750 [139]Q2[177]8[167]X5[178]1:Q2[178]8:S2[178]8
  220. 3790 [139]X5[178]0[167]3850
  221. 3800 [153]"LT.UHURA REPORTS MESSAGE FROM STARFLEET"
  222. 3805 [153]"COMMAND: PERMISSION TO CROSS GALACTIC"
  223. 3810 [153]"PERIMETER IS HEREBY SYS*DENIED*LIST"
  224. 3850 [139]T[177]T0[170]T9[167][153]"DEF TIME HAS RUN OUTLIST.":[137]6220
  225. 3860 [139]8[172]Q1[170]Q2[178]8[172]Q4[170]Q5[167]3370
  226. 3865 [139]ET[177]0[167]ET[178]ET[171]1
  227. 3870 T[178]T[170]1:[141]3905:[137]1320
  228. 3905 [139]HM[177]0[167][153][163]4)"DEFSPACE MINE HIT, SHIELDS DAMAGED":S[178]S[171]500:HM[178]0
  229. 3907 [139]S[179]0[167]6220
  230. 3910 E[178][181](E[171]N[172]1.5[171]15):[141]7920:[139]E[177][178]0[167][142]
  231. 3930 [153]"SYSSHIELD CONTROL SUPPLIES ENERGY TO":[153]"COMPLETE THE MANEUVERLIST"
  232. 3940 S[178]S[170]E:E[178]0:[141]7920:[139]S[179][178]0[167]S[178]0
  233. 3980 [142]
  234. 4000 [139]D(3)[179]0[176]NB[178]1[167][153]"DEF     LONG RANGE SENSORS INOPERABLE":[137]1990
  235. 4030 [141]16450:[153]"SYSLONG RANGE SCAN FOR":[153]"  QUADRANT "Q1[170]1","Q2[170]1
  236. 4040 [158]5712:[158]51285:[153]Q$Q$"":[137]1990
  237. 4260 [139]D(4)[179]0[176]NB[178]1[167][153]"DEF          PHASERS INOPERATIVE":[137]1990
  238. 4265 [139]K3[177]0[167]4280
  239. 4270 [153]"SCIENCE OFFICER SPOCK REPORTS: SENSORS"
  240. 4275 [153]"SHOW NO ENEMY SHIPS IN THIS QUADRANT":[137]1990
  241. 4280 [139]E[179][178]0[167][153]"     SYSINSUFFICIENT ENERGY AVAILABLE":[137]1990
  242. 4330 [139]D(8)[179]0[167][153]"SYSCOMPUTER FAILURE HAMPERS ACCURACY."
  243. 4350 [153]"    SYSENERGY AVAILABLE =PRINT"E"SYSUNITS
  244. 4360 PRINT"    [153]TARGETING COMPUTER LOCKED ON"
  245. 4370 INPUT"[158]    NUMBER OF UNITS TO FIRE   [191][157][157][157][153]";X$:X=VAL(X$):IFX<=0THEN1990
  246. 4380 GOSUB7940:GOSUB7950
  247. 4400 IFE-X<0THEN4360
  248. 4410 E=E-X:GOSUB7920:IFD(8)<0THENX=X*RND(1)
  249. 4450 H=INT(X/K3):FORI=1TO3:IFK(I,3)<=0THENGOSUB13500:GOTO4670
  250. 4460 X0=S2:Y0=S1:X1=K(I,2):Y1=K(I,1):GOSUB10000:IFD(2)>=0THENGOSUB15400
  251. 4480 H1=INT((H/FND(1))*(RND(1)+1.5)):IFH1>HTHENH1=H
  252. 4490 IFH1>.15*K(I,3)THENK(I,3)=K(I,3)-H1:GOTO4550
  253. 4500 GOSUB13280:GOTO4670
  254. 4550 IFK(I,3)<=0THENSYS5451:GOSUB12400:GOSUB13000:IFD(2)>=0THEN4580
  255. 4555 IFK(I,3)<=0THENFORTL=1TO700:NEXT:SYS5485:GOTO4580
  256. 4560 GOSUB13000:GOTO4670
  257. 4580 K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="":GOSUB8670
  258. 4650 K(I,3)=0:IFNB=0THENL0=FNL(0):POKEL0,(PEEK(L0)-1):GOSUB10500
  259. 4660 IFK9<=0THEN6370
  260. 4670 NEXTI:GOSUB14100:GOSUB6000:DM=0
  261. 4675 IFK3=0THENPRINTTAB(5)"[158]SECURE FROM GENERAL QUARTERS"
  262. 4680 GOTO1990
  263. 4700 IFP<=0THENPRINT"[158]ALL PHOTON TORPEDOES EXPENDED":GOTO1990
  264. 4730 IFD(5)<0THENPRINT"[150]        PHOTON TUBES INOPERATIVE":GOTO1990
  265. 4760 INPUT"      PHOTON TORPEDO COURSE  [191][157][157][157]";C1$:G=VAL(C1$):IFG=0THEN1990
  266. 4770 IFG=9THENG=1
  267. 4780 IFG>=1ANDG<9THEN4830
  268. 4790 PRINT"ENSIGN CHEKOV REPORTS: INCORRECT COURSE":PRINT"DATA SIR!":GOTO1990
  269. 4830 X=S1:Y=S2:IFKD=0THENS=S-5:P=P-1
  270. 4835 IFDM=1ANDKD=1THENFORTD=0TO1200:NEXT:DM=0
  271. 4840 GOSUB7940:GOSUB7950
  272. 4850 GOSUB7900
  273. 4910 IFD(2)<0ANDKD=0THENPRINT"[158]TORPEDO TRACK:";
  274. 4915 Y0=X:X0=Y:X3=0:Y3=0:IFD(2)<0ANDKD=0THENGOSUB10200
  275. 4960 X=X+F1:Y=Y+F2:X3=INT(X+.5):Y3=INT(Y+.5):X1=Y3:Y1=X3
  276. 4965 IFX3<1ORX3>8ORY3<1ORY3>8THEN5480
  277. 5000 IFD(2)<0ANDKD=0THENPRINTTAB(15)X3","Y3
  278. 5010 A$="":GOSUB5500:IFZ3=1THEN4960
  279. 5060 A$="[218][]":GOSUB5500:IFZ3=0THEN5195
  280. 5065 IFKD=1THEN4960
  281. 5110 GOSUB15400:SYS5451:GOSUB12100:K3=K3-1:K9=K9-1
  282. 5112 IFD(2)<0THENFORTD=0TO999:NEXT:SYS5485
  283. 5115 PRINTTAB(7)"[153]*** KLINGON DESTROYED ***"
  284. 5117 IFK3=0THENPRINTTAB(5)"[158]SECURE FROM GENERAL QUARTERS[155]"
  285. 5120 IFK9<=0THEN6370
  286. 5150 FORI=1TO3:IFX3=K(I,1)ANDY3=K(I,2)THENK(I,3)=0:GOTO5465
  287. 5180 NEXTI
  288. 5195 A$="[193][211][216]":GOSUB5500:IFZ3=0THEN5210
  289. 5200 EH=1:GOSUB15400:GOTO17040
  290. 5210 A$="%&_":GOSUB5500:IFZ3=0THEN5280
  291. 5240 GOSUB15400:IFKD=1THEN17040
  292. 5260 PRINT"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":GOSUB6000:GOTO1990
  293. 5280 A$="#[214]\":GOSUB5500:IFZ3=0THEN5415
  294. 5330 GOSUB15400:SYS5451:GOSUB12100:PRINTTAB(7)"[153]*** STARBASE DESTROYED ***[155]"
  295. 5340 B3=B3-1:B9=B9-1:IFKD=1THEN5465
  296. 5400 PRINT"STARFLEET COMMAND REVIEWING YOUR RECORD"
  297. 5410 PRINT"TO CONSIDER COURT MARTIAL!":D0=0:GOTO5465
  298. 5415 A$="[215][169][215]":GOSUB5500:IFZ3=0THEN5480
  299. 5423 IFKD=1THEN4960
  300. 5425 GOSUB15400:SYS5451:GOSUB12100:PRINTTAB(6)"[153]*** SPACE MINE DESTROYED ***[155]"
  301. 5465 Z1=X:Z2=Y:A$="":GOSUB8670
  302. 5470 L0=FNL(0):POKEL0,K3:POKEL0+1,B3:GOSUB10500:IFKD=1THEN17040
  303. 5475 GOSUB6000:GOTO1990
  304. 5480 GOSUB15400:IFKD=1THEN17040
  305. 5490 IFD(2)<0THENPRINTTAB(9)"[158]TORPEDO MISSED TARGET[155]"
  306. 5495 GOTO5475
  307. 5500 Z1=X:Z2=Y:GOSUB8830:RETURN
  308. 5530 IFD(7)<0ORNB=1THENPRINT"[150]       SHIELD CONTROL INOPERATIVE":GOTO1990
  309. 5560 PRINT"ENERGY AVAILABLE =[153]";E+S:INPUT"[155]NUMBER OF UNITS TO SHIELDS   [191][157][157][157][153]";X$
  310. 5570 X=VAL(X$):IFX$="[191]"THEN1990
  311. 5580 IFX<0ORS=XTHENPRINTTAB(7)"[158]*** SHIELDS UNCHANGED ***":GOTO1990
  312. 5590 IFX<=E+STHEN5630
  313. 5600 PRINTTAB(7)"[158]DEFLECTOR CONTROL REPORTS"
  314. 5605 PRINT"  THIS IS NOT THE FEDERATION TREASURY"
  315. 5610 PRINTTAB(7)"[158]*** SHIELDS UNCHANGED ***[155]":GOTO1990
  316. 5630 E=E+S-X:S=X:GOSUB7920:SYS52731:PRINT"[145]"
  317. 5660 PRINT"SHIELDS AT[153]";INT(S);"[155]UNITS PER REQUEST":GOTO1990
  318. 5690 IFD(6)>=0THEN5900
  319. 5700 PRINT"[150]  DAMAGE CONTROL REPORT NOT AVAILABLE[155]":IFD0=0THEN1990
  320. 5720 D3=0:FORI=1TO9:IFD(I)<0THEND3=D3+.1
  321. 5760 NEXTI:IFD3=0THEN1990
  322. 5780 D3=D3+D4:IFD3>=1THEND3=.9
  323. 5810 PRINT"TECHNICIANS STANDING FOR REPAIRS"
  324. 5815 PRINT"ESTIMATED TIME:";.01*INT(100*D3)"STARDATES
  325. 5840 [133]"WILL YOU AUTHORIZE REPAIR (Y/N)";A$:[139]A$[179][177]"Y"[167]1990
  326. 5870 [129]I[178]1[164]9:[139]D(I)[179]0[167]D(I)[178]0
  327. 5890 [130]I:T[178]T[170]D3
  328. 5900 [153]"LOAD"[163]13)"PRINTDAMAGE CONTROL":[153][163]13)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  329. 5910 [153]"SYSDEVICE"[166]14)"STATE OF REPAIR":[153][163]17)"0   1   2   3   4   5LIST"
  330. 5920 [129]R1[178]1[164]9:[141]8790:CL[178]153:[139]D(R1)[178]0[167]CL[178]158:[137]5935
  331. 5930 [139]D(R1)[179]0[167]CL[178]28
  332. 5935 S1$[178]"NEW":[153]G2$;[163]17);[199](CL);[163]17);
  333. 5940 [129]DL[178]0[164][182](D(R1))[172]4[171]1:[153]S1$;:[130]:[153]"ONLIST";[199](13)
  334. 5950 [130]R1:[153]:[139]D0[179][177]0[167]5720
  335. 5980 [137]1990
  336. 6000 [139]K3[179][178]0[167][142]
  337. 6010 [139]D0[178]1[167][153]"PRINTSTARBASE SHIELDS PROTECT THE ENTERPRISE":[142]
  338. 6040 [129]I[178]1[164]3:[139]K(I,3)[179][178]10[167]6200
  339. 6050 [158]5712:[139][187](1)[177].5[176]NB[178]1[167]KD[178]1:[137]17000
  340. 6060 H[178][181]((K(I,3)[173][165]D(1))[172](2[170][187](1))):S[178]S[171]H:K(I,3)[178]K(I,3)[173](3[170][187](1)):[141]7940
  341. 6065 KP[178]1:Y0[178]K(I,1):X0[178]K(I,2):Y1[178]S1:X1[178]S2:[141]15400:KP[178]0:PC[178]0:SC[178]0
  342. 6080 [158]5507:[153][163]4)H"DEFUNITS HIT FROM SECTOR"K(I,1);",";K(I,2)
  343. 6085 [139]S[179]0[167]S[178]0
  344. 6090 [141]7920:[139]S[178]0[175]NB[178]0[167]6240
  345. 6095 [139]NB[178]1[167]H[178]1:S[178]1:[137]6140
  346. 6100 [153][163]7)"SYSSHIELDS DOWN TODEF";S;"SYSUNITSLIST":[139]H[179]20[175]KD[178]0[167]6200
  347. 6120 [139][187](1)[177].6[167]6200
  348. 6130 [139]KD[178]1[167]H[178][181]([165]D(0)[172]300)
  349. 6140 R1[178][165]B(1)[170]1:D(R1)[178]D(R1)[171]H[173]S[171].5[172][187](1):[141]8790
  350. 6170 DM[178]1:[153]"DEFDAMAGE CONTROL REPORTS: ":[153]G2$;" DAMAGED BY THE HIT.LIST"
  351. 6180 [141]3040
  352. 6200 [139]K(I,3)[179][178]0[176]K(I,3)[177][178]10[167]6215
  353. 6205 [153]"SYSSENSORS: KLINGON AT "K(I,1)","K(I,2)" POWER LOW"
  354. 6215 [130]I:KD[178]0:[142]
  355. 6220 [158]5485:R9[178]1:[141]260:R9[178]0:[153]"IT IS STARDATE"T
  356. 6230 [153]"THERE WERE";[181](T0[170]T9[171]T);" STARDATES LEFT.":[137]6270
  357. 6240 [153]"THE ENTERPRISE HAS BEEN DESTROYED. THE"
  358. 6250 [153]"FEDERATION WILL BE CONQUERED":[137]6220
  359. 6270 [153]"THERE WERE";K9;"KLINGON BATTLE CRUISERS"
  360. 6280 [153]"LEFT AT THE END OF YOUR MISSION."
  361. 6290 [139]B9[177]0[167]6310
  362. 6295 [153]"DEFYOU HAVE LOST ALL YOUR STARBASES SO THE"
  363. 6300 [153]"SIMULATION IS OVER
  364. 6305 PRINT"THE SELF DESTRUCT SEQUENCE HAS STARTED."
  365. 6307 FORX=0TO20000:NEXT:GOTO6360
  366. 6310 PRINT"THE FEDERATION IS IN NEED OF A NEW STAR"
  367. 6315 PRINT"SHIP COMMANDER FOR A SIMILAR MISSION --"
  368. 6320 PRINT"IF THERE IS A VOLUNTEER, LET HIM STEP"
  369. 6330 INPUT"FORWARD AND ENTER AYE";A$:IFA$="AYE"THENRESTORE:CLR:GOTO60
  370. 6360 SYS64738
  371. 6370 PRINT"CONGRATULATION CAPTAIN,THE LAST KLINGON"
  372. 6375 PRINT"BATTLE CRIUSER HAS BEEN DESTROYED."
  373. 6400 PRINT"YOUR EFFICIENCY RATING IS"INT((1000*(K7/(T-T0))^2)*100)/100
  374. 6410 GOSUB15000:GOTO6290
  375. 6430 POKE49394,((S1-1)*8+S2-1)*3:POKE49404,S1:POKE49405,S2:SYS51062
  376. 6450 IFPEEK(49406)=1THEN6570
  377. 6545 D0=0:IFPR=1ANDNB=0THENRETURN
  378. 6550 GOTO6650
  379. 6570 IFD(8)<0THENGOSUB23200
  380. 6620 D0=1:E=3000:P=12:S=0:GOSUB7920:ET=0:GOTO6730
  381. 6650 PRINT"[147]":IFK3>0ANDNB=0THENC$="*RED*":CO=150:GOTO6730
  382. 6660 C$="GREEN":CO=153:IFE<50ORNB=1THENC$="YELLOW":CO=158
  383. 6730 IFD(2)<0THENPRINTTAB(4)"[150]SHORT RANGE SENSORS INOPERATIVE":RETURN
  384. 6740 IFNB=1THENSYS5397:GOTO6780
  385. 6770 IFNQ=1THENSYS4608:NQ=0:GOTO6780
  386. 6775 SYS4616
  387. 6780 PRINT"":IFNB=1THENSYS5232:GOTO6795
  388. 6790 SYS49152
  389. 6795 SYS52133
  390. 7000 PRINT"";:IFD0=0THENPRINTTAB(9)CHR$(CO);"CONDITION "C$:GOTO7165
  391. 7100 PRINT"[153]    DOCKED - SHIELDS DROPPED"
  392. 7165 PRINT"[146]"Q$Q$Q$"[158]STARDATE ";INT(T*10)*.1;TAB(19)"QUADRANT"Q1+1","Q2+1;
  393. 7168 PRINT"BASES":PC=0:SC=0
  394. 7170 PRINT"[159]TORPEDOS   ";INT(P);TAB(19)"[150]KLINGONS   ";INT(K9)" "B9"[155]":RETURN
  395. 7290 IFD(8)<0ORNB=1THENPRINT"[150]         COMPUTER INOPERATIVE":GOTO1990
  396. 7320 PRINT"[153]COMPUTER ACTIVE - AWAITING COMMAND[155]":SYS5100:SYS5712
  397. 7330 GETB1$:IFB1$=""THEN7330
  398. 7340 A=VAL(B1$):IFA=0ORA>5THEN7360
  399. 7350 H8=1:ONAGOTO7543,8070,8500,8150,7400
  400. 7360 PRINT"[158]INFO AVAILABLE FROM LIBRARY COMPUTER"
  401. 7370 PRINT"   1 = CUMULATIVE GALACTIC RECORD
  402. 7374 [153]"   2 = PHOTON TORPEDO DATA
  403. 7376 PRINT"   3 = STARBASE NAVIGATION DATA
  404. 7378 [153]"   4 = DIRECTION/DISTANCE CALCULATOR
  405. 7380 PRINT"   5 = GALAXY SECTOR NAME MAP":GOTO7320
  406. 7400 H8=0:G5=1:PRINT"[147]"TAB(12)"THE GALACTIC REGION":GOTO7550
  407. 7543 PRINT"[147]"TAB(9)"GALACTIC SECTOR RECORD
  408. 7544 [153][163]13)"QUADRANT"Q1[170]1","Q2[170]1
  409. 7550 [153]"    1   2   3   4   5   6   7   8   9":[139]H8[178]0[167]7630
  410. 7560 [151]49412,Q2:[151]49414,Q1:[158]49600
  411. 7580 [153]"1CMD2CMD3CMD4CMD5CMD6CMD7CMD8CMD9":[137]1990
  412. 7630 [158]49893:[129]J[178]0[164]8:[153]J[170]1;
  413. 7740 Z4[178]J:Z5[178]1:[141]9030:J0[178][181](13[171].5[172][195](G2$)):[153][163]J0)G2$;
  414. 7800 Z5[178]6:[141]9030:J0[178][181](31[171].5[172][195](G2$)):[153][163]J0)G2$
  415. 7850 [158]49893:[130]:[137]1990
  416. 7900 F1[178]C(G,1)[170](C(G[170]1,1)[171]C(G,1))[172](G[171][181](G))
  417. 7910 F2[178]C(G,2)[170](C(G[170]1,2)[171]C(G,2))[172](G[171][181](G)):[142]
  418. 7920 [151]248,(E[170]S)[173]165[170].5:[151]249,S[173]165[170].5:[151]180,(E[170]S)[173]100[170].5:[151]181,S[173]100[170].5
  419. 7930 [158]52440:[153]"ON":[142]
  420. 7940 [139][194](1665)[178]64[167]PC[178][171]40:SC[178][171]8
  421. 7941 [142]
  422. 7950 [139][194](1665)[179][177]64[175][194](1705)[179][177]64[167][141]6650
  423. 7951 [142]
  424. 8070 [139]K3[179][178]0[167]4270
  425. 8080 X$[178]"":[139]K3[177]1[167]X$[178]"S"
  426. 8090 [153]"FROM ENTERPRISE TO BATTLE CRUISER";X$:F[178]1
  427. 8100 H8[178]0:[129]J[178]1[164]3:[139]K(J,3)[179][178]0[167]8480
  428. 8110 A1[178]K(J,1):B1[178]K(J,2)
  429. 8120 A0[178]S1:B0[178]S2:[137]8220
  430. 8150 [153]"DIRECTION/DISTANCE CALCULATOR:"
  431. 8160 [153]"YOU ARE AT QUADRANT "Q1[170]1","Q2[170]1:F[178]10
  432. 8165 [153][163]13)"SECTOR "S1","S2
  433. 8170 [153]"PLEASE ENTER":[133]"INITIAL COORDINATES (Y/X)   SINCMDCMDCMD";A0,B0
  434. 8200 [133]"  FINAL COORDINATES (Y/X)   SINCMDCMDCMD";A1,B1
  435. 8220 X[178][182](B1[171]B0):A[178][182](A0[171]A1):[139]X[178]0[175]A[178]0[167]8150
  436. 8230 [139]B1[171]B0[179]0[167]8350
  437. 8250 [139]A0[171]A1[179]0[167]8410
  438. 8260 [139]B1[171]B0[177]0[167]8280
  439. 8270 [139]A[178]0[167]C[178]5:[137]8290
  440. 8280 C[178]1
  441. 8290 [139]A[179][178]X[167]8330
  442. 8310 DI[178][181]((C[170](((A[171]X)[170]A)[173]A))[172]100)[173]100:[137]8455
  443. 8330 DI[178][181]((C[170](A[173]X))[172]100)[173]100:[137]8455
  444. 8350 [139]A0[171]A1[177]0[167]C[178]3:[137]8420
  445. 8360 [139]X[179][177]0[167]C[178]5:[137]8290
  446. 8410 C[178]7
  447. 8420 [139]A[177][178]X[167]8450
  448. 8430 DI[178][181]((C[170](((X[171]A)[170]X)[173]X))[172]100)[173]100:[137]8455
  449. 8450 DI[178][181]((C[170](X[173]A))[172]100)[173]100
  450. 8455 [139]KD[178]1[167][142]
  451. 8458 DS[178]A:[139]A[179]X[167]DS[178]X
  452. 8459 [139]F[178]1[167]DS[178][186](X[174]2[170]A[174]2)
  453. 8460 [153]"DISTANCE =";[181](DS[172]10[172]F)[173]100;[163]18)"DIRECTION ="DI
  454. 8470 [139]H8[178]1[167]1990
  455. 8480 [130]J:[137]1990
  456. 8500 [139]B3[179][177]0[167][153]"FROM ENTERPRISE TO STARBASE:":A1[178]B4:B1[178]B5:F[178]1:[137]8120
  457. 8510 [153]"MR. SPOCK REPORTS SENSORS SHOW NO"
  458. 8515 [153]"STARBASES IN THIS QUADRANT":[137]1990
  459. 8590 R1[178][165]R(1):R2[178][165]R(1):A$[178]"":Z1[178]R1:Z2[178]R2:[141]8830:[139]Z3[178]0[167]8590
  460. 8600 [142]
  461. 8670 S8[178][182]([181](Z2[171].5)[172]3[170][181](Z1[171].5)[172]24[170]1[170]50000)
  462. 8710 [139]L5[178]1[167]8730
  463. 8720 [158]49304:L5[178]1
  464. 8730 [151]S8,[198]([200](A$,1)):[151]S8[170]1,[198]([202](A$,2,1)):[151]S8[170]2,[198]([201](A$,1))
  465. 8760 [142]
  466. 8790 [145]R1[137]8792,8794,8796,8798,8800,8802,8804,8806,8808
  467. 8792 G2$[178]"WARP ENGINES":[142]
  468. 8794 G2$[178]"SHORT RANGE SCAN":[142]
  469. 8796 G2$[178]"LONG RANGE SCAN":[142]
  470. 8798 G2$[178]"PHASER CONTROL":[142]
  471. 8800 G2$[178]"PHOTON TUBES":[142]
  472. 8802 G2$[178]"DAMAGE CONTROL":[142]
  473. 8804 G2$[178]"SHIELD CONTROL":[142]
  474. 8806 G2$[178]"LIBRARY COMPUTER":[142]
  475. 8808 G2$[178]"TRACTOR BEAM":[142]
  476. 8830 Z1[178][181](Z1[170].5):Z2[178][181](Z2[170].5):S8[178](Z2[171]1)[172]3[170](Z1[171]1)[172]24[170]50002:Z3[178]0
  477. 8890 [139][194](S8)[179][177][198]([202](A$,2,1))[167][142]
  478. 8900 Z3[178]1:[142]
  479. 9030 [139]Z5[179][178]5[167][145]Z4[170]1[137]9040,9050,9060,9070,9080,9090,9100,9110,9115
  480. 9035 [137]9120
  481. 9040 G2$[178]"ANTARES":[137]9210
  482. 9050 G2$[178]"RIGEL":[137]9210
  483. 9060 G2$[178]"PROCYON":[137]9210
  484. 9070 G2$[178]"VEGA":[137]9210
  485. 9080 G2$[178]"CANOPUS":[137]9210
  486. 9090 G2$[178]"ALTAIR":[137]9210
  487. 9100 G2$[178]"SAGITTARIUS":[137]9210
  488. 9110 G2$[178]"POLLUX":[137]9210
  489. 9115 G2$[178]"ORION":[137]9210
  490. 9120 [145]Z4[170]1[137]9130,9140,9150,9160,9170,9180,9190,9200,9205
  491. 9130 G2$[178]"SIRIUS":[137]9210
  492. 9140 G2$[178]"DENEB":[137]9210
  493. 9150 G2$[178]"CAPELLA":[137]9210
  494. 9160 G2$[178]"BETELGEUSE":[137]9210
  495. 9170 G2$[178]"ALDEBARAN":[137]9210
  496. 9180 G2$[178]"REGULUS":[137]9210
  497. 9190 G2$[178]"ARCTURUS":[137]9210
  498. 9200 G2$[178]"SPICA":[137]9210
  499. 9205 G2$[178]"CYGNUS"
  500. 9210 [139]G5[179][177]1[167][145]Z5[170]1[137]9230,9240,9250,9260,9270,9230,9240,9250,9260
  501. 9220 [142]
  502. 9230 G2$[178]G2$[170]" I":[142]
  503. 9240 G2$[178]G2$[170]" II":[142]
  504. 9250 G2$[178]G2$[170]" III":[142]
  505. 9260 G2$[178]G2$[170]" IV":[142]
  506. 9270 G2$[178]G2$[170]" V":[142]
  507. 9500 [151]V[170]22,255:[151]V[170]6,240:[151]V[170]1,45
  508. 9510 [151]V[170]4,33:[129]N[178]1[164]35:[130]
  509. 9520 [151]V[170]4,32:[151]V[170]22,88:[142]
  510. 10000 [151]V[170]22,255
  511. 10010 [151]V[170]5,128:[151]V[170]6,128
  512. 10020 [129]N[178]10[164]60[169].5
  513. 10030 [151]V[170]1,N:[151]V[170]4,17:[130]N
  514. 10040 [151]V[170]4,16:[151]V[170]22,88:[158]5440
  515. 10140 [142]
  516. 10200 [158]5440:[151]V[170]22,220:[151]V[170]23,247:[151]V[170]5,128:[151]V[170]6,128
  517. 10205 [151]V[170]5[170]7,128:[151]V[170]6[170]7,128
  518. 10210 [129]N[178]60[164]10[169][171]2:[151]V[170]1,N:[151]V[170]8,N:[151]V[170]4,129:[151]V[170]11,33
  519. 10220 [130]:[151]V[170]4,128:[151]V[170]11,32:[151]V[170]22,88:[158]5440:[142]
  520. 10500 L0[178][165]L(0)
  521. 10510 GS[178]L0[171]250:[129]TL[178]0[164]2:[151]GS[170]TL,[194](L0[170]TL)[170]48:[130]:[142]
  522. 11000 [139]D(9)[179]0[176]NB[178]1[167][153]"DEF         TRACTOR BEAM INOPERABLE":[137]1990
  523. 11005 [139]K3[177]1[167][153]"SYS      TOO MANY TARGETS FOR LOCK ON":[137]1990
  524. 11010 [139]K3[178]0[167][153]"SYS  NO TARGETS LOCATED FOR TRACTOR BEAM":[137]1990
  525. 11100 [129]I[178]1[164]3:[139]K(I,3)[178]0[167]11140
  526. 11102 [141]7940:[141]7950:[153]"SYS          TRACTOR BEAM ENGAGED":S[178]S[171]10:[141]7920
  527. 11103 [139]K(I,3)[179]10[167]11110
  528. 11105 [153]"DEFKLINGON POWER LEVELS TOO HIGH FOR BEAMLIST":J[178]I:[141]6000:I[178]J:[137]1990
  529. 11110 TB[178]1:B1[178]S2:A1[178]S1:A0[178]K(I,1):B0[178]K(I,2):KD[178]1:[141]8220:KD[178]0
  530. 11115 [139][187](1)[177].3[167]11120
  531. 11118 [158]5451:B[178]4:[141]12400:[153][163]6)"SYSKLINGON HAS SELF DESTRUCTED":[137]4580
  532. 11120 N%[178][186](X[174]2[170]A[174]2):G[178]DI:Y0[178]K(I,1):X0[178]K(I,2):KM[178]1:B[178]1:FL[178]0:[141]2600:KM[178]0
  533. 11125 [139]FL[178]1[167][158]5451:B[178]4:[141]12400:[153]"SYS    KLINGON DESTROYED BY SPACEMINE":[137]4580
  534. 11130 [153][163]10)"PRINTTRACTORING COMPLETED"
  535. 11140 [130]I:TB[178]0:[137]1990
  536. 12000 [139]B[179][177]4[167]PO[178]1022[170](X3[172]2)[172]40[170](Y3[172]4)[170]PC
  537. 12020 [151]PO,42:[129]IT[178]1[164]8:[130]IT:[151]PO,32:[142]
  538. 12100 [139]D(2)[179]0[167][142]
  539. 12101 PO[178]1022[170](X3[172]2)[172]40[170](Y3[172]4)
  540. 12104 [141]12000:[141]16200:[158]5485
  541. 12105 PO[178]PO[171]41:[151]51636,PO[175]255:[151]51637,PO[173]256:[158]51668:[142]
  542. 12400 [139]D(2)[179]0[167][142]
  543. 12410 PO[178]1022[170](K(I,1)[172]2)[172]40[170](K(I,2)[172]4)[170]PC:[141]12104:[142]
  544. 12999 [143] PHSER SET UP
  545. 13000 [139]I[178]1[167]H5[178]H1:C4[178]K(1,3)
  546. 13110 [139]I[178]2[167]H6[178]H1:C2[178]K(2,3)
  547. 13120 [139]I[178]3[167]H7[178]H1:C3[178]K(3,3)
  548. 13200 [145]I[137]13210,13220,13230
  549. 13210 [139]C4[179][178]0[167]H2[178]2:[142]
  550. 13215 [137]13240
  551. 13220 [139]C2[179][178]0[167]H3[178]2:[142]
  552. 13225 [137]13240
  553. 13230 [139]C3[179][178]0[167]H4[178]2:[142]
  554. 13240 [145]I[137]13250,13260,13270
  555. 13250 C4[178]C4[170]H5:[139]H5[177].15[172]C4[175]C4[171]H5[177]0[167]H2[178]1:[142]
  556. 13260 C2[178]C2[170]H6:[139]H6[177].15[172]C2[175]C2[171]H6[177]0[167]H3[178]1:[142]
  557. 13270 C3[178]C3[170]H7:[139]H7[177].15[172]C3[175]C3[171]H7[177]0[167]H4[178]1:[142]
  558. 13280 [145]I[137]13290,13300,13310
  559. 13290 H2[178]0:[142]
  560. 13300 H3[178]0:[142]
  561. 13310 H4[178]0:[142]
  562. 13500 [139]I[178]1[167]H2[178][171]1:[142]
  563. 13510 [139]I[178]2[167]H3[178][171]1:[142]
  564. 13520 [139]I[178]3[167]H4[178][171]1:[142]
  565. 14100 DM[178]1:U$[178]"SYSSENSORS:DEF NO DAMAGE TO ENEMY AT LIST"
  566. 14110 W$[178]"SYSUNITS HIT KLINGON - SECTORLIST"
  567. 14120 E$[178]"PRINT      *** KLINGON DESTROYED ***LIST"
  568. 14130 R$[178]"SYS    SENSORS:PRINT":Y$[178]"SYSUNITS REMAININGLIST"
  569. 14200 [139]H2[178][171]1[137]14250
  570. 14210 [139]H2[178]0[167][153]U$;K(1,1);",";K(1,2):[137]14250
  571. 14220 [139]H2[177]0[167][153]H5;W$;K(1,1);",";K(1,2)
  572. 14225 [139]H2[178]1[167][153]R$;[181]((C4[171]H5)[172]100)[172].01;Y$:[137]14250
  573. 14230 [139]H2[178]2[167][153]E$
  574. 14250 [139]H3[178][171]1[137]14300
  575. 14260 [139]H3[178]0[167][153]U$;K(2,1);",";K(2,2):[137]14300
  576. 14270 [139]H3[177]0[167][153]H6;W$;K(2,1);",";K(2,2)
  577. 14275 [139]H3[178]1[167][153]R$;[181]((C2[171]H6)[172]100)[172].01;Y$:[137]14300
  578. 14280 [139]H3[178]2[167][153]E$
  579. 14300 [139]H4[178][171]1[167][142]
  580. 14310 [139]H4[178]0[167][153]U$;K(3,1);",";K(3,2):[142]
  581. 14320 [139]H4[177]0[167][153]H7;W$;K(3,1);",";K(3,2)
  582. 14325 [139]H4[178]1[167][153]R$;[181]((C3[171]H7)[172]100)[172].01;Y$:[142]
  583. 14330 [139]H4[178]2[167][153]E$:[142]
  584. 15000 V[178]54272:L1[178]V:L2[178]L1[170]7:L3[178]54286:H1[178]L1[170]1:H2[178]L2[170]1:H3[178]L3[170]1:V1[178]L1[170]4:V2[178]L2[170]4
  585. 15010 V3[178]L3[170]4:[129]J[178]V[164]54296:[151]J,0:[130]:[151]V[170]24,15
  586. 15040 [151]V1[170]1,40:[151]V1[170]2,64:[151]V2[170]1,40:[151]V2[170]2,72:[151]V3[170]1,28:[151]V3[170]2,72
  587. 15070 T[178]TI:F[178]2.0
  588. 15080 [151]V1,32:[151]V2,16:[151]V3,16
  589. 15090 [135]S:[139]S[178]0[137]15170
  590. 15100 [135]X1,Y1,X2,Y2,X3,Y3
  591. 15110 [151]H1,X1:[151]L1,Y1:[151]V1,33:[151]H2,X2:[151]L2,Y2:[151]V2,17:[151]H3,X3:[151]L3,Y3:[151]V3,17
  592. 15140 T[178]T[170]S[172]F
  593. 15150 [139]T[177]TI[137]15150
  594. 15160 [137]15080
  595. 15170 [151]V[170]24,31:[151]V[170]22,88:[151]V[170]23,247:[142]
  596. 15400 [139][194](1665)[179][177]64[175][194](1705)[179][177]64[167][142]
  597. 15402 [139]NB[178]1[175]KD[178]1[167][142]
  598. 15405 [139]B[178]1[175]KD[178]0[167]15430
  599. 15410 N1[178]4:N2[178]4:N3[178]5:[137]15530
  600. 15430 N1[178]8:N2[178]6:N3[178]7:PO[178]1024[170]([181](Y0)[172]2)[172]40[170]([181](X0)[172]4)[171]2[170]PC
  601. 15435 [139]KM[178]1[167][151]51568,1:[158]51569
  602. 15530 WS[178]12:X0[178]32[170]32[172](X0[171]1):Y0[178]58[170]16[172](Y0[171]1)[170]SC:[139]HM[178]1[167]X8[178]X1:Y8[178]Y1:X1[178]X7:Y1[178]Y7
  603. 15540 X9[178]X1:X1[178]32[170]32[172](X1[171]1):Y9[178]Y1:Y1[178]58[170]16[172](Y1[171]1)[170]SC:YR[178]Y0[171]Y1:XR[178]X0[171]X1
  604. 15545 [139]X0[177]255[167]X0[178]255
  605. 15550 [139]X1[177]255[167]XV[178]X1[171]256:X1[178]255:Y1[178][181](Y1[170].5[170](YR[172]XV)[173][182](XR[170]1))
  606. 15560 [139]X1[179]32[167]XV[178]32[171]X1:X1[178]32:Y1[178][181](Y1[170].5[170](YR[172]XV)[173][182](XR[170]1))
  607. 15570 [139]KP[178]1[176](B[178]4[175]KD[178]0)[167][158]52770,1,Y0,X0,Y1,X1,4:[142]
  608. 15580 YR[178]Y0[171]Y1:XR[178]X0[171]X1:[139]B[178]1[175]KD[178]0[167][151]2043,11:[137]15620
  609. 15600 [151]2042,15
  610. 15620 [139]B[178]1[175]KD[178]0[175]XR[177]0[175]HM[179][177]2[175]KM[178]0[167][151]176,192:[151]177,2:[158]51200:ER[178]1
  611. 15625 [139]B[178]1[175]KM[178]1[175]XR[179]0[167][151]176,192:[151]177,2:[158]51200:KR[178]1
  612. 15630 [139]B[178]1[175]KM[178]0[167]WS[178]9.5[171].5[172]W1:[139]W1[179]1[167]WS[178]20[171]10[172]W1
  613. 15640 [139][182](XR)[179]2[175][182](YR)[179]2[167][141]15940:[137]15860
  614. 15645 [151]VI[170]21,N1
  615. 15650 [141]15940:[158]51786,N1,Y0,X0,Y1,X1,WS
  616. 15860 [139]HM[178]1[167][158]5451:Y3[178]X7:X3[178]Y7:[141]12000:[141]16240:X0[178]X7:Y0[178]Y7:X1[178]X8:Y1[178]Y8
  617. 15861 [139]HM[178]1[167]HM[178]2:[141]16110:[137]15530
  618. 15865 [139]KD[178]0[175]SO[178]0[175]B[178]1[167]15900
  619. 15870 [151]VI[170]21,0:[158]52854
  620. 15875 [139]ER[178]1[167]ER[178]0:[151]176,192:[151]177,2:[158]51200
  621. 15880 [139]KR[178]1[167]KR[178]0:[151]176,192:[151]177,2:[158]51200
  622. 15885 [139]KM[178]1[167][151]51568,0:[158]51569
  623. 15890 [142]
  624. 15900 PO[178]1022[170]([181](Y9)[172]2)[172]40[170]([181](X9)[172]4)[170]PC
  625. 15910 [139]KM[178]0[167][141]16120:[151]PO[171]1,65:[151]PO,83:[151]PO[170]1,88:[137]15870
  626. 15920 [151]PO[171]1[170]V,12:[151]PO[171]1,90:[151]PO[170]V,12:[151]PO,27:[151]PO[170]1[170]V,12:[151]PO[170]1,29:[137]15870
  627. 15940 [139]B[178]5[175]KD[178]0[167][141]10200:[142]
  628. 15945 [139]B[178]1[175]KD[178]0[167][151]PO[171]1,32:[151]PO,32:[151]PO[170]1,32
  629. 15946 [142]
  630. 16100 [158]5451:Y3[178]X7:X3[178]Y7
  631. 16110 Z1[178]X3:Z2[178]Y3:A$[178]"":[141]8670
  632. 16120 L[178]V[170]PO:[151]L[171]1,1:[151]L,1:[151]L[170]1,1:[142]
  633. 16200 [139]B[178]4[175]KD[178]0[167]16220
  634. 16210 X0[178]31[170]32[172](Y3[171]1):Y0[178]61[170]16[172](X3[171]1):[137]16260
  635. 16220 X0[178]31[170]32[172](K(I,2)[171]1):Y0[178]61[170]16[172](K(I,1)[171]1)[170]SC:[137]16260
  636. 16240 X0[178]X1:Y0[178]Y1
  637. 16260 [151]VI,X0:[151]VI[170]1,Y0:[151]VI[170]21,[194](VI[170]21)[176]1
  638. 16270 [129]EX[178]1[164]4:[151]2040,13:[129]TD[178]1[164]22:[130]TD:[151]2040,14:[129]TD[178]1[164]22:[130]TD,EX
  639. 16300 [151]VI[170]21,[194](VI[170]21)[175]254:[142]
  640. 16450 [158]52480:[153]""[163]25)"WAITSYSDEVICES DOWN":[153][163]25)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":DD[178]0
  641. 16505 [139]D(6)[179]0[167][153][163]24)"DEFDAMAGE CONTROL":[153][163]25)"UNSERVICEABLESYS":[137]16540
  642. 16510 [129]I[178]1[164]9:[139]D(I)[178][177]0[167]16530
  643. 16520 [141]16900:[153][163]22)G2$[181](D(I)[172]10)[172].1:DD[178]1
  644. 16530 [130]:[139]DD[179][177]1[167][153][163]26)"PRINTALL SYSTEMS":[153][163]26)"OPERATIONALSYS
  645. 16540 PRINT""TAB(17)Q$Q$"UPDATE[157][157][157][157][157][157][163][163][163][163][163][163]"
  646. 16650 PRINTTAB(7)Q$"[158]STARDATES REMAINING"SPC(4).1*INT((T0+T9-T)*10)
  647. 16660 PRINTTAB(7)"[150]KLINGONS REMAINING"SPC(5)INT(K9)
  648. 16670 PRINTTAB(7)"[153]KLINGONS DESTROYED"SPC(5)INT(K7-K9)
  649. 16685 PRINTTAB(7)"[159]PHOTON TORPEDOS"SPC(8)INT(P):RETURN
  650. 16900 ONIGOTO16910,16920,5,16940,16950,5,16970,16980,16990
  651. 16910 G2$="W. ENGINES  ":RETURN
  652. 16920 G2$="S.R. SCAN   ":RETURN
  653. 16940 G2$="PHASERS     ":RETURN
  654. 16950 G2$="PHOTON TOR  ":RETURN
  655. 16970 G2$="SHIELD CON  ":RETURN
  656. 16980 G2$="L.COMPUTER  ":RETURN
  657. 16990 G2$="TRACT BEAM  ":RETURN
  658. 17000 B1=S2:A1=S1:A0=K(I,1):B0=K(I,2):GOSUB8220
  659. 17010 IFRND(1)>.5ANDDI<8THENDI=DI+RND(1)*(1/FND(1)):GOTO17030
  660. 17020 IFDI>2THENDI=DI-RND(1)*(1/FND(1))
  661. 17030 X=K(I,1):Y=K(I,2):G=DI:EH=0:K(I,3)=K(I,3)*.90:IFNB=1THENG=FNR(1)
  662. 17035 GOTO4835
  663. 17040 IFEH=0THEN6200
  664. 17050 ET=ET+1:IFET=3ANDNB=0THENPRINT"[150]HIT BY TOO MANY TORPEDOS[155]":GOTO6240
  665. 17060 IFNB=0THENS=S-(INT(RND(1)*150)+350)
  666. 17070 SYS5451:GOSUB16240:PRINTTAB(9)"[150]HIT BY PHOTON TORPEDO[155]":GOTO6085
  667. 23000 PRINT"[147]"TAB(31)Q$"[176][177][174]
  668. 23060 [153][163]13)"TOTOTOTOTOTOTOTOTOTOTOTOTO    (null)(null)USR(null)(null)
  669. 23065 PRINTTAB(13)"[205][175][186][175][175][186][175][175][186][175][175][206][165][205]  [206] [165] [167] [205]  [206]
  670. 23070 [153][163]23)"+(null)FNTHENTOSQRTAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TOFN
  671. 23075 PRINTTAB(23)"[170][180][165][167][163][208][164][164][164][164][164][164][164][207][163][165]
  672. 23080 [153][163]13)"(null)USR(null)USRUSR(null)USRUSR(null)USRUSR(null)FN(null)  (null) FN THEN (null)  (null)
  673. 23085 PRINTTAB(13)"[163][163][163][163][163][163][163][163][163][163][163][163][163]    [205][204][175][186][206]
  674. 23090 [153][163]31)"/=EXP
  675. 23180 IFL4=1THENL4=0:RETURN
  676. 23200 C$="[150]*** WARNING ***":SE=10:C1$="S"
  677. 23240 PRINT"[147]"TAB(12)C$
  678. 23250 PRINTTAB(2)"ONBOARD COMPUTERS ARE MALFUNCTIONING"
  679. 23270 PRINT"PREPARE FOR MANUAL DOCKING PROCEDURE"
  680. 23280 PRINT"SWITCHING TO VISUAL IN:"
  681. 23290 PRINTTAB(17+2-LEN(STR$(SE)))SE" SECOND"C1$
  682. 23300 SE=SE-1:IFSE=-1THEN23500
  683. 23310 IFSE=1THENC1$=" "
  684. 23320 FORTD=1TO250:NEXT:TD=0
  685. 23330 PRINT""TAB(12)Z$:D9=D9+1:IFD9=2THENPRINTQ$"":D9=0:GOTO23290
  686. 23340 FORTD=1TO110:NEXT:TD=0:PRINT""TAB(12)C$:GOTO23320
  687. 23500 PRINT"[147]":SYS49814:PRINT""TAB(31)Q$"[146][174]
  688. 23510 [153][163]24)"POSPOSPOSPOSPOSRND(null)TAB((null)*POSPOSPOSPOSPOS
  689. 23520 PRINTTAB(29)"[161][165] [167][182]
  690. 23530 [153][163]24)"FREFREFREFREFRECOS(null)TO(null)LOGFREFREFREFREFRECMDCMDCMDCMDCMDCMDCMDCMD/
  691. 23600 IFL4=1THENL4=0:RETURN
  692. 24000 M=4:YS=INT(RND(0)*50+75):XS=10
  693. 24020 L1=0:L2=0:L3=0:XS=25:YS=INT(RND(0)*50)+75
  694. 24025 POKEVI+23,0:POKEVI+29,0:POKEVI+21,8:POKE2043,11:POKEVI+6,XS:POKEVI+7,YS
  695. 24050 SYS51489:XS=PEEK(VI+6):YS=PEEK(VI+7)
  696. 24150 IFL1=1THEN24180
  697. 24160 IFXS=>185THENL1=1:GOSUB25000
  698. 24170 IFL1=0THENRA=(240-XS)*100+1600:GOTO24250
  699. 24180 RA=(155-XS)*50
  700. 24190 IFXS<=20ANDL1=1THENL1=0:GOSUB25100
  701. 24200 IF(PEEK(VI+31)AND8)=8THENL2=1:L3=L3+1:GOTO24220
  702. 24210 L2=0:L3=0:GOTO24250
  703. 24220 IFL3=1THENTB=TI+200
  704. 24230 IFL2=0THEN24250
  705. 24240 IFTB=<TITHENPRINT"[147]":GOTO6220
  706. 24250 PRINT""TAB(5)"RANGE";RA;"[157]  ";TAB(20)"VELOCITY 100"
  707. 24449 IFL1=1THENPOKE1336,81:POKE1696,40
  708. 24450 IFPEEK(VI+23)=0THEN24050
  709. 24451 IFXS>=145ANDXS<=155ANDYS>=122ANDYS<=124THENPRINT"DOCKED":GOTO24453
  710. 24452 GOTO24050
  711. 24453 FORX=1TO3000:NEXT:POKEVI+21,0:POKEVI+23,0:POKEVI+29,0
  712. 24454 POKEVI+7,0:PRINT"[147]":RETURN
  713. 25000 POKEVI+21,0
  714. 25010 L4=1:GOSUB23000:XS=50
  715. 25020 POKEVI+23,8:POKEVI+29,8:POKEVI+6,XS:POKEVI+7,YS:POKEVI+21,8:RETURN
  716. 25100 POKEVI+21,0:L4=1:GOSUB23500:XS=180:POKEVI+23,0:POKEVI+29,0:POKEVI+6,XS:POKEVI+7,YS
  717. 25140 POKEVI+21,8:RETURN
  718. 40500 FORLO=1TO31:READSL:FORII=0TO7:READQ:POKESL+II,Q:NEXTII,LO:RETURN
  719. 60000 DATA30,34,75,17,37,8,147,8,45,198,22,227,11,114
  720. 60015 DATA35,61,126,30,141,15,70,8,57,172,28,214,14,107
  721. 60025 DATA9,45,198,22,227,11,114,9,38,126,19,63,9,159
  722. 60035 DATA9,51,97,25,177,12,216,40,68,149,34,75,17,37
  723. 60045 DATA5,,,,,,,5,68,149,34,75,17,37,40,86,105,43,52,21,154,0
  724. 60100 DATA3352,8,8,24,16,48,32,32,254
  725. 60110 DATA3360,254,32,32,48,16,24,8,8
  726. 60150 DATA2568,255,127,1,0,1,3,0,0
  727. 60151 DATA2712,128,131,1,131,255,255,255,
  728. 60152 DATA2752,120,255,176,0,0,128,0,0
  729. 60160 DATA2768,96,248,255,188,112,0,0,0
  730. 60161 DATA2264,0,0,255,7,0,0,0,0
  731. 60162 DATA2280,0,240,224,252,56,48,255,255
  732. 60170 DATA2328,252,66,253,0,0,253,66,252
  733. 60171 DATA2736,189,126,129,189,189,129,126,189
  734. 60172 DATA2272,63,66,191,0,0,191,66,63
  735. 60180 DATA2344,1,0,4,1,0,2,0,1
  736. 60181 DATA2352,36,129,24,60,60,24,129,36
  737. 60182 DATA2296,128,0,32,128,0,64,0,128
  738. 60190 DATA2744,,,,,,,,
  739. 60191 DATA2888,,,,56,,,,
  740. 60200 DATA3496,,12,,192,,,48,
  741. 60201 DATA3504,,,96,,6,,24,
  742. 60202 DATA3512,24,,3,,,192,,
  743. 60203 DATA3520,,,,12,,96,,6
  744. 60204 DATA3528,48,,,,,6,,12
  745. 60300 DATA2432,62,99,99,0,99,99,62,0
  746. 60305 DATA2440,24,24,24,0,24,24,24,0
  747. 60310 DATA2448,62,3,3,62,96,96,62,0
  748. 60315 DATA2456,62,3,3,28,3,3,62,0
  749. 60320 DATA2464,99,99,99,60,3,3,3,0
  750. 60325 DATA2472,62,96,96,62,3,3,62,0
  751. 60330 DATA2480,62,96,96,30,99,99,62,0
  752. 60335 DATA2488,126,3,3,0,3,3,3,0
  753. 60340 DATA2496,62,99,99,62,99,99,62,0
  754. 60345 DATA2504,62,99,99,60,3,3,62,0
  755. 61200 DATA10,14,107,57,172,28,214,20,25,177,102,194,51,97
  756. 61210 DATA8,24,63,96,254,48,127,8,21,154,86,105,43,52
  757. 61220 DATA8,19,63,76,252,38,126,8,18,42,72,169,36,85
  758. 61235 DATA20,17,37,68,149,34,75,10,15,70,61,126,30,141
  759. 61245 DATA15,14,107,57,172,28,214,20,28,214,115,88,57,172
  760. 61255 DATA7,25,177,102,194,51,97,7,24,63,96,254,48,127
  761. 61265 DATA7,21,154,86,105,43,52,7,19,63,76,252,38,126
  762. 61275 DATA20,18,42,72,169,36,85,10,17,37,68,149,34,75
  763. 61285 DATA20,16,47,64,188,32,94,8,18,42,72,169,36,85
  764. 61295 DATA8,19,63,76,252,38,126,8,21,154,86,105,43,52
  765. 61305 DATA8,24,63,96,254,48,127,8,25,177,102,194,51,97
  766. 61315 DATA8,24,63,96,254,48,127,20,28,214,115,88,57,172
  767. 61325 DATA30,34,75,137,4,68,149,10,32,94,128,120,64,188
  768. 61335 DATA15,28,214,115,88,57,172,20,16,47,64,188,32,94
  769. 61345 DATA10,21,154,86,105,43,52,40,19,63,76,252,38,126
  770. 61355 DATA15,21,154,86,105,43,52,15,25,177,102,194,51,97
  771. 61365 DATA15,32,94,128,120,64,188,80,38,126,153,247,76,252,0
  772. 63000 FORX=0TO242STEP3
  773. 63010 IFPEEK(X+50450)>0 AND PEEK(X+50452)>0 THENPOKEX+50450,0
  774. 63020 IFPEEK(X+50450)>0 AND PEEK(X+50452)=0 THENPRINTX
  775. 63030 NEXTX:GOTO1990
  776.